home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aac.d64 / basic-sieve (.txt) < prev    next >
Commodore BASIC  |  2007-02-28  |  464b  |  25 lines
  1. 10 PRINT CHR$(147),"SIEVE TEST"
  2. 20 SI%=1000:ML%=10
  3. 30 PRINT "ARRAY SIZE: ";SI%
  4. 40 PRINT "NUMBER ITERATIONS: ";ML%
  5. 100 POKE 162,0:POKE 161,0:POKE 160,0
  6. 120 DIM FL%(SI%)
  7. 125 FOR NB=1 TO ML%
  8. 130 FOR I=0 TO SI%:FL%(I)=1:NEXT
  9. 140 PRINT "LOOP ";NB
  10. 150 CT%=0
  11. 160 FOR I=0 TO SI%
  12. 170 IF FL%(I)=0 THEN 250
  13. 180 PR%=I+I+3
  14. 190 K%=I+PR%
  15. 200 IF K%>SI% THEN 240
  16. 210 FL%(K%)=0
  17. 220 K%=K%+PR%
  18. 230 GOTO 200
  19. 240 CT%=CT%+1
  20. 250 NEXT
  21. 252 NEXT
  22. 255 PRINT "COUNT=";CT%
  23. 260 T3=PEEK(162):T2=PEEK(161):T1=PEEK(160)
  24. 270 PRINT (T1*256*256+T2*256+T3)/60;" SECONDS"
  25.